www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\channel.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="ConnDB.asp"--> <!--#include file="include/function.Common.asp"--> <!--#include file="include/Deep.Class.Template.asp"--> <!--#include file="include/function.tag.template.asp"--> <!--#include file="include/function.tag.url.asp"--> <!--#include file="include/function.tag.common.asp"--> <% id=request.QueryString("id") if (id="") or (not isNumeric(id)) then response.Redirect("index.asp") end if '是否html静态 if(site_isHTML=1)then call CloseConnDB() Response.Redirect("html/channel/channel_"&id&".htm") end if sql_channel="select fid,fparentID,fname,fcontentTitle,fcontent,fchannelPic from deep_Channel where fisView=1 and fid=" & id set rsChannel=conn.execute(sql_channel) if (rsChannel.eof and rsChannel.bof) then response.Write("没有记录") else fid = rsChannel("fid") fparentID = rsChannel("fparentID") fname = rsChannel("fname") fchannelPic = rsChannel("fchannelPic") fcontentTitle = rsChannel("fcontentTitle") fcontent = rsChannel("fcontent") end if rsChannel.close set rsChannel=nothing dim oDeepTemplate set oDeepTemplate=new Deep_Template oDeepTemplate.templates_dir="themes/"&site_theme&"/" 'template=oDeepTemplate.readTemplateFile("index.htm") oDeepTemplate.readTemplateFile("channel.template.html") '调入文件 'oDeepTemplate.replaceTag "../base.css","themes/base.css" oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css" do_replace_siteConfig(oDeepTemplate) '替换网站基本配置信息标签 '导航 call do_replace_Channel() '广告 call do_replace_AD() 'response.Write( oDeepTemplate.template ) oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url ' 参数 {$fastLogin(46,8)} oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin" oDeepTemplate.replaceTag "urlSort",getHTML_urlSort oDeepTemplate.replaceTag "friendLink",getHTML_friendLink oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic '---频道-------------------- 'if(fparentID<>0)then strSiteNavClassList = siteNavClassList("",fparentID,"select fid,fparentID,fname from deep_Channel where fisView=1 and fid=") 'end if oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList oDeepTemplate.replaceTag "channel_name",fname oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle oDeepTemplate.replaceTag "channel_content",fcontent '------------------------ oDeepTemplate.display() '显示 set oDeepTemplate=nothing call CloseConnDB() %>